home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / shells / scsh-0.4 / scsh-0 / scsh-0.4.2 / scsh / ndbmo.c < prev    next >
C/C++ Source or Header  |  1995-10-13  |  569b  |  30 lines
  1. /* Scheme48/scsh Unix system interface.
  2. ** Routines that require custom C support.
  3. ** Copyright (c) 1995 by David Albertz.
  4. */
  5.  
  6. /*  Vanilla ndbm version of the database open function */
  7.  
  8. #include <stdio.h>
  9. #include <errno.h>
  10. #include <ndbm.h>
  11.  
  12. #include "cstuff.h"
  13.  
  14. extern int errno;
  15.  
  16. /* stub used to return FALSE when scheme checks for Berkeley dbm */
  17. int db_check()
  18. {
  19.   return 0;
  20.   }
  21.  
  22. scheme_value db_open_default (char *file, int flags, int mode, DBM **db_ptr)
  23. {
  24.     *db_ptr = dbm_open(file, flags, mode);
  25.     if(*db_ptr == NULL)
  26.     return -1;
  27.     else
  28.     return 0;
  29.     }
  30.